unit waitAnimation;

interface
implementation
uses ExtCtrls,StdCtrls,Forms,Dialogs,main;
var img:TImage;
    tim:ttimer;
    lab:tlabel;
    isstart:boolean;
    frame:integer;



procedure AnimWait();
begin
tim:=TTimer.Create(formMa);
tim.Interval:=200;
tim.Enabled:=true;
tim.OnTimer:=formMa.timAnim;
end;

end.
